Gigarom 1/Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso/FILES/APP/E-L/Loodle™5.2.2.sea/LoodleList/background_2655.xml

Extensible Markup Language | 1992-02-12 | 5KB | 138 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>2655</id>
    <filler1>0</filler1>
    <bitmap>BMAP_6752.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3288.css" />
    <part>
        <id>1</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>295</left>
            <top>266</top>
            <right>320</right>
            <bottom>288</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>21847</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>New Button</name>
        <script>on mouseUpvisual effect iris closego homeend mouseUp</script>
    </part>
    <part>
        <id>3</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>56</left>
            <top>211</top>
            <right>96</right>
            <bottom>261</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>14199</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Find</name>
        <script>on mouseUpask "Find What?"set loc of msg to -500,-500put "find"&&quote&it&quotedo msgend mouseUp</script>
    </part>
    <part>
        <id>4</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>26</left>
            <top>128</top>
            <right>131</right>
            <bottom>181</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Load Disk Catalog File</name>
        <script>on mouseUpglobal Doneglobal fNameput false into Doneget the short name of this stackput it into xanswer file "Select a Disk Catalog File..." of type "TEXT"if the result is not empty then exit mouseupput it into fNameset cursor to 4open file fNamego next cardLoopend mouseUpon doReadglobal aStringglobal fNameread from file fName until returnput it into aStringif it is emptythenclose file fNamebeepgo firstexit To Hypercardend ifend doReadon Loopglobal aStringglobal fNamedoReaddoReaddoReadput true into startNewrepeatdoReadif startNewthenif field 1 is not empty then doMenu "New Card"put empty into last char of aStringput aString into bkgnd field "Title"doReadput 1 into lineNoput false into startNewelseif the first character of aString is "—" -- this is a section endthenput true into startNewelseput empty into last char of aStringput aString into line lineNo of bkgnd field "Files"put LineNo + 1 into lineNoend ifend ifend repeatend Loop</script>
    </part>
    <part>
        <id>5</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>11</left>
            <top>232</top>
            <right>47</right>
            <bottom>267</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>14919</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Loodle 5.2</name>
        <script>on mouseUpopen short name of targetend mouseUp</script>
    </part>
    <name></name>
    <script></script>
</background>